home *** CD-ROM | disk | FTP | other *** search
/ AEMail 2.40 / AEMail v2.40.iso / arexx / addtogrp.aem next >
Text File  |  1998-09-25  |  3KB  |  131 lines
  1. /* AEMail Add Name from To: & cc: headers to Address Book Group */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. /* TRACE ALL */
  6.  
  7. CURRENT IS SELECTED
  8.  
  9. IF (RESULT ~= 1) THEN DO
  10.     OKAY1 "No message is selected"
  11.     EXIT
  12.     END
  13.  
  14. TO
  15.  
  16. tolist = RESULT
  17.  
  18. IF (tolist = "") THEN DO
  19.     OKAY1 "No To: Header in message"
  20.     EXIT
  21.     END
  22.  
  23. ADDTOAB = 1
  24. IF (ADDTOAB = 1) THEN DO
  25.     OK = 0
  26.     DO UNTIL OK = 1
  27.         ADDRESS_BOOK LIST GROUP DESCRIPTION LF
  28.         grplist = RESULT
  29.         GETLISTITEM "'"grplist"' 'Select the Group Wanted'"
  30.         grpname = RESULT
  31.         IF (grpname = "") THEN EXIT
  32.         PARSE VAR grpname grpname dflt
  33.         dflt = STRIP(dflt, 'L')
  34.         ADDRESS_BOOK GET grpname TYPE
  35.         addrtype = RESULT
  36.         IF (addrtype = -1) THEN DO
  37.             OKAY2 '"Create It|Enter New Name|Cancel"' "Group Nickname Does Not Exist"
  38.             IF (RESULT = 1) THEN DO
  39.                 GETSTRING '"Enter a Group Description"' "'"dflt"'"
  40.                 grpdesc = RESULT
  41.                 OK = 1
  42.                 OKAY2 "YES|NO" "Do you want to send header only?"
  43.                 IF (RESULT = 0) THEN sndho = ""
  44.                 ELSE sndho = "SHO"
  45.                 END
  46.             ELSE IF (RESULT = 2) THEN OK = 0
  47.             ELSE IF (RESULT = 0) THEN exit
  48.             END
  49.         IF (addrtype = 0) THEN DO
  50.             OKAY2 '"Re-enter Name|Cancel"' "Nickname is already used for an Individual"
  51.             IF (RESULT = 1) THEN OK = 0
  52.             IF (RESULT = 0) THEN exit
  53.             END
  54.         IF (addrtype = 1) THEN OK = 1
  55.         END
  56.     END
  57.  
  58. FIRST TONAME
  59.  
  60. name1 = RESULT
  61.  
  62. IF (name1 = "") THEN EXIT
  63.  
  64. EXTRACT USERID "'"name1"'"
  65.  
  66. emailaddr=RESULT
  67.  
  68. DO UNTIL emailaddr = ""
  69.  
  70.     IF (ADDTOAB = 1) THEN DO
  71.         IF (addrtype = -1) THEN DO
  72.             cmd = "ADDRESS_BOOK CREATE GROUP " grpname sndho "'"emailaddr"'" grpdesc
  73.             addrtype = 1
  74.             END
  75.         ELSE cmd = "ADDRESS_BOOK ADD TO GROUP " grpname "'"emailaddr"'"
  76.         cmd
  77.         END
  78.     NEXT NAME
  79.     IF (RC ~= 0) THEN DO
  80.         OKAY1 "last error is "AEMAIL.LASTERROR
  81.         EXIT
  82.         END
  83.     name1 = RESULT
  84.     EXTRACT USERID "'"name1"'"
  85.     emailaddr=RESULT
  86.     END
  87.  
  88. CC
  89.  
  90. IF (RESULT = "") THEN DO
  91.     OKAY1 "Last To: Name added - no cc: names"
  92.     EXIT
  93.     END
  94.  
  95. OKAY2 "YES|NO" "Do you want to add cc: names?"
  96.  
  97. IF (RESULT = 0) THEN EXIT
  98.  
  99. FIRST CCNAME
  100.  
  101. name1 = RESULT
  102.  
  103. IF (name1 = "") THEN EXIT
  104.  
  105. EXTRACT USERID "'"name1"'"
  106.  
  107. emailaddr=RESULT
  108.  
  109. DO UNTIL emailaddr = ""
  110.  
  111.     IF (ADDTOAB = 1) THEN DO
  112.         IF (addrtype = -1) THEN DO
  113.             cmd = "ADDRESS_BOOK CREATE GROUP " grpname sndho "'"emailaddr"'" grpdesc
  114.             addrtype = 1
  115.             END
  116.         ELSE cmd = "ADDRESS_BOOK ADD TO GROUP " grpname "'"emailaddr"'"
  117.         cmd
  118.         END
  119.     NEXT NAME
  120.     IF (RC ~= 0) THEN DO
  121.         OKAY1 "last error is "AEMAIL.LASTERROR
  122.         EXIT
  123.         END
  124.     name1 = RESULT
  125.     EXTRACT USERID "'"name1"'"
  126.     emailaddr=RESULT
  127.     END
  128.  
  129.  
  130.  
  131. OKAY1 "Last CC: Name Added"